home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / ntsp3 / nt4sp3_i.exe / [0] / pscript.dll / 259 / 5 < prev    next >
Text File  |  1997-05-01  |  413b  |  5 lines
  1. /nl{currentpoint exch pop 100 exch 10 sub moveto}def errordict begin
  2. /handleerror{showpage 100 720 moveto/Courier-Bold findfont 10 scalefont setfont
  3. (ERROR: )show errordict begin $error begin errorname =string cvs show nl(OFFENDING COMMAND: )show/command load =string cvs show nl nl(OPERAND STACK: )show $error/ostack known{ostack aload length{=string cvs nl show}repeat}if end
  4. end showpage stop}bind def end
  5.